home *** CD-ROM | disk | FTP | other *** search
- #!/bin/sh
- D=`date`
- C=`echo $HTTP_REFERER | sed 's.\/\/.@.;s.\/.:82.;s.@.\/\/.'`
- cat <<-!
- Content-type: text/html
-
- <html><body bgcolor=#FFFFE0><center>
- <table border=1><tr><td>
- <font face=system><blockquote>
- <br>FREESCO $D - cgi script example<p>
- !
- echo "'cgi/example' was called with parameter - '$QUERY_STRING'<p>"
- cat <<-!
- <a href=$C>Click here for Control Panel $C</a><p>
- Source of this cgi script:<pre>
- !
- sed 's/</\&\lt;/g;s/>/\&\gt;/g' example
- cat <<-!
- </pre></td></tr></table></body></html>
- !
- # End